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ABSTRACT 

Computer software as engineering tools are typically run in three modes: Batch, Demand and 
Interactive. The first two are the most popular in the SINDA world. The third one “ ' 

due probably to the users inaccessibility to the command procedure files for running SINDA 85, or lack 
of familiarly with the SINDA '85 execution processes (pre-processor, processor, compdation, lin kmg, 
execution and all of the file assignment, creation, deletions and de-a«ngnments). Interactive » the mode 
that makes thermal analysis with SINDA '85 a real-time design tool. This paper explains a command 
procedure sufficient (the minimum modifications required in an existing demand command procedure) to 
run SINDA '85 on the VAX in an interactive mode. To exercise the prowdure a sample > “ 

presented exemplifying the mode, plus additional programming capabilities available in SINDA 8 . 
Following the same guidelines the process can be extended to other SINDA '85 residence computer 

platforms. 


47 


PRECEDING PAGE BLA3X NOi FiLMED 


AGENDA 



SINDA PROCESS 



48 




















SINDA PROCESS 



INTERACTIVE PROCESS 


Minimum Command Procedure Modifications Required 


• In the Standard ASTA.COM File Hold the Run-Process and the 
File-Deletion-Process by Commenting the Following Two Lines: 

$ RUN FNAME 
$ @AST:DELWORK 

• Rec omme nd You Create a New File such as ASTA_SAVE.COM. 

• Define a Symbol such as SINDA85_SAVE:= — @ASTA_SAVE in 
Your THERMAL Set-Up or LOGIN.COM Files. 
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INTERACTIVE PROCESS 


Compilation and Linking Process 


• Run the Preprocessor With Input File XXX.INP: 

$>SINDA85_SAVE XXX.INP 

• If Errors are found, files XXX.OPP or XXX.US located in the 
Same Directory of XXX.INP Will contain any Pre-Processor 
(SINDA85/Fluint) or Compilation (Fortran) error messages. 


• If No Errors, You will find Yourself within the ZZZZZZ.DIR 
Scratch Directory. Among All of the XXX.DAT files is the XXX.EXE 
Executable ready to Run. 

• Transparent to the User, the VAX System Has also Assign a Number 
of Working Files (Just like your ASTA_SAVE.COM File Requested 
That Will Remain Assign Until they Are De-assigned, or Until You 
Logout Should You Logout, These Assignments Need to be Made 
Before the XXX.EXE can be Run. 


INTERACTIVE PROCESS 


• Running Interactive: 


• To Run Just Enter: 


$>RUN XXX 

• All of the Lines Programmed in the HEADER OPERATIONS DATA Block 
of the SINDA M 85/Fluint Model Will Begin Execution. 



• Result Files (XXX.OUT, XXX.US1, XXX.RSO, Etc) WiU be Created in the 
Same Location as the XXX.INP Model. 
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EXAMPLE PROBLEM 
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PROBLEM DESCRIPTION 


• SINDA'85/Fluint Model FMLI.INP 


C THIN SUBMODEL: DESIGNED TO MODEL THE THIN INSULATED 
C SECTION OF THE FOAM/MU TEST ARTICLE IN GROUND PHASE CONDITIONS. 

C 

C PURGE FLUID SUBMOOEL: DESIGNED TO MODEL THE GN2 PURGE BETWEEN THE 
C MU AND THE SHIELD. THIS SUBMODEL GENERATES THE CONVECTION 
C BETWEEN THE SHIELD AND THE THIN MU INTERFACE. 

HEADER OPTIONS DATA 

TTTLE FOAM/MU GROUND PHASE 
MODEL = TEST 
OUTPUT = FMLLOUT 
USER1 = FMU.US1 

C FLUID DESCRIPTION FOR LN2 PURGE GAS 

HEADER FPROP DATA3728.SL0.0 

C MOST COMPLETE N2 GAS (NEAR 1 ATM.) 

C VALUES BELOW 7736K ARE FOR VAPOR 
C RGAS =8314.34/28.01 
AT,V, 65.0.4.40E-6 

77.36, S.44E-6, 80.0.5.59E-6, 85.0,5.9E-€, 90.0,6 .22E-6 

95.0. 6.54E-6, 100.0, 6J7E-6, 1 06.0,7.1 9E-6, 110.0, 7.52E-6 

115.0. 7.83E-6, 120.0,8. 16E-6, 126.0.8.0E-6, 126-2.8.65E-6 

130.0. 8.78E-6, 140.0.9.4E-6, 1 80.0,1 1JE-6, 200.0, 12.9E-6, 

220.0. 13.9E-6, 240.0, 15.0E-6, 280.0,1 6.0E-6, 280A16-9E-6, 

300.0. 17.9E-6, 340.0, 19.7E-6, 440.0.23.7E-6, 460.0.24.4E-6, 

480.0. 25.2E-6, 500.0, 25.9E-6 

AT.K, 65.0,6.1 E-3, 75.0,7.1 E-3, 7736.7.4E-3, 80.0.7.6E-3, 

85.0. 8.0E-3, 90.0.8JE-3, 95.0.8.9E-3, 100.0,9.4E-3, 

105.0. 9.8E-3, 110.0, 10JE-3, 11 5.0,1 0.7E-3, 125.0,1 1.7E-3, 

130.0. 12.1 E-3, 150.0, 13.9E-3, 1 60.0,1 4.7E-3, 180.0,1 6. 5 E-3, 

200.0. 1 6.3E-3, 220.0, 19.9E-3, 240.0.21.6E-3, 300.0.26.0E-3 

320.0. 27.4E-3, 340.0.28.7E-3, 380.031. 3E-3, 400.0.32JE-3, 

480.0. 37.5E-3, 500.0, 38.6E-3 

AT, CP, 65.0,1 .039E3, 320.0,1 .039E3, 380.0, 1.042E3, 460.0, 1.060E3 

500.0. 1. 056E3 


HEADER CONTROL DATA.GLOBAL 

UID = ENG PATMOS = -14.7 
ABSZRO =0.0 
SIGMA =1.0 
N LOOPS =500 






PROBLEM DESCRIPTION 


• SINDA'85/Fluint Model FMLI.INP (cont) 


HEADER USER DATA, GLOBAL 

PI = 3.1416 
VALUE =0.0 
ICASE =1 

CTO CHANGE MODEL CONFIGURATION, MOOIFY THE FOLLOWING VARIABLES: 

C CRYO PHYSICAL PROPERTIES: 

QEVAP =191.9 $ HEAT OF VAPORIZATION OF CRYO (BTU/LBM) 

TCRYO = 37.0 I CRYO TANK TEMP (DEG R) 

C BOUNDARY CONDITIONS: 

TWALL =530.0 $ CHAMBER WALL (DEG R) 

TSHIELD = 620.0 $ ALUMINUM SHIELD TEMP (DEG R) 

GN2PT =530.0 9 CHAMBER GN2 PURGE GAS TEMP (DEG R) 

C MU PROPERTIES: 

AMUTN = 45.809 $ THIN MU SURFACE AREA 

DMUTN = 50.0 $ MU DENSITY (LAYERS/IN) 

XLAYTN = 17.0 8 NUMBER OF MU LAYERS ON THIN (INC OUTER/INNER) 

EMUH =0.05 $ MU HEMISPHERICAL EMISIVITY ti cyan din 

E^JJO =0.1 $ MU OUTER LAYER EMISIVTTY POIA -1J32/I2.0 $ LEXAN PIN 

DPIN s 1.0 
FMSTN =1.0 


DPIN =1.0 8 PIN DENSITY (WSQFT) 

FMSTN =1.0 8 THIN MU-SHIELD VIEW FACTOR 

SEAMLTN = 36.061 8 THIN MU SEAM LENGTH (FT) 

SEAMWTN = 0.125412. 8 THIN MU SEAM WIDTH (FI) 

C SOn PROPERTIES: 

ASOFITN = 43.986 8 THIN SOR AREA (FT2) 

SOFTTN = 0.45/12. 8 THIN SOF1 THICKNESS (FT) 


ASOFITN = 43.986 8 THIN SOR AREA (Flz) 

SOFTTN = 0.45/12. 8 THIN SOR THICKNESS (FT) 

C WALL PROPERTIES: 

EWALL =0.8 8 EMISSIVTTY OF VAC WALL CHAMBER 

C SHIELD PROPERTIES: 

ASHTN =62.03 8THIN SHIELD AREA (FT2) 

E SHIELD = 0.9 8 EMISSIVTTY OF AL SHIELD 

FSW = 1.0 8 SHIELD-WALL VIEW FACTOR 

CONVSW =1.0 8 GN2 CONV BET SHIELD AND WALL (BTU/HR-FT2-F) 

C GN2 PURGE FLUINT NETWORK 

GN2MLTT = 530.0 8 MU GN2 PURGE GAS TEMP (DEG R) 

GN2PFR = 10.0 8 MU GN2 PURGE FLOWRATE (LBSAMN) 

HTCTN =0.0 8 TUN GN2 PURGE H(BTU/HR-FK*F) (OUTPUT) 

RENTN =0.0 8 THIN GN2 REYNOLD'S NO. (OUTPUT) 

C USED FOR OUTPUT ONLY XMLTTN =0.0 8 THW MU TV8CKNESS 

VPURTN ■ 0.0 $ GN2 VEL BET SHIELD AND THW MU (FT/SEC) 

C OTHER MODIFIABLE INPUTS 

STEF = 0.171 4E-8 8 STEFAN-BOLT7MANN (BTU/HR-FT2-R4) 


C END OF MODIRCATIONS 
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PROBLEM DESCRIPTION 


• SINDA'85/Fluint Model FMLI.INP (cont) 


C THIN SUBMODEL: 

C 

C MAJOR ASSUMPTIONS 

C 1. TANK OUTER SURFACE IS CONSTANT (DEG RANNNE) 

C 2. CHAMBER WALL TEMPERATURE IS CONSTANT (DEG RANKJNE) 

C 3. AVERAGE SOF1 THICKNESS IS 0.45 IN. (BASED ON THCKNESS MAP) 

C 4. MU DENSITY • SO LAYERS/IN., 15 LAYERS MU PLUS TWO MYLAR COVERS 
C MU THICKNESS = 17/50 = 0.34 IN. 

C 5. MU HEMISPHERICAL EMKSIVTTY = .05 

C 6. EMISSIVTTY OF MU OUTER SURFACE = . 1 , EMISSIVITY OF SHIELD = .9 
C EMISSIVITY OF VACUUM CHAMBER = 0 J. 

C 7. LEXAN PINS. DIAMETER = 1/9 IN.. DENSITY = 1 PER FT A 2 MU 

HEADER USER DATA, THIN 

101 = 0 . 

102 = 0 . 

103=0. 

201 = 0 . 

301=0. 

401=0. 

501=0. 

502=0. 

503=0. 

504=0. 

C 

588=0. 

989=0. 

HEADER NODE DATA. THIN 

10, 520.0, -1.0 9 ALUMINUM SHIELD 

20, 450.0, -1.0 $ MU SURFACE 

30, 380.0, -1.0 $ BOR SURFACE 

40, 200.0,-1.0 | BOR MIDPOINT 

•8, 530.0,0.0 8 CHAMBER WALL 

•9, 530.0,0.0 8 GN2 PURGE GAS 

•50, 37.0, -1.0 SCRYO 

HEADER CONDUCTOR DATA, TUN 

C CALCULATION FOR HEAT LEAK COMPONENTSC 
C G(mll-shMd) (100) = A*Fv*Fa*STEF 

C G(mll cond) (101) = (CALCULATED IN VARIABLES 1 USING EMPIRICAL FORMULA) 

C G(m!l rad) (102) = (CALCULATED IN VARIABLES 1 USING EMPIRICAL FORMULA) 

C G(mli gas) (103) = KN2 * A/Tmll 
C G(mli aaam) (-104) = LMam*WsMm*Faeam*STEF 

C G(mli pin) (105) = Kpln*Npin(ratk>)*A*Apln/TmUC G(mll pin) (105) = Kpin*Npln(ratk>)*A*ApirVTmli 
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PROBLEM DESCRIPTION 


• SINDA'85/Fhiint Model FMLI.INP (cont) 


C G(«ofl) (106) = K«ofI*A/(T«ofl/2) 

C G(*ofi) (107) = K«ofi*A/(T«o»l/2) 

C G(w»ll-«hi«kf) (108) = A*Fv*F«*STEF 
C G(GN2-SHIELD) (108) = h*A 
C 


-100, 

10. 

20, 

1.0 

8SHELDTOMU 

101, 

20, 

30, 

1.0 

8 MU CONDUCTION 

102. 

20, 

30, 

1.0 

8 MU RADIATION 


81V 103, 20. 30, A3.K501 $ MU GAS 

■104, 20, 30, 1.0 S MU SEAM 


SPY 105, 

20, 

30, 

A1.K502 

8 MU PIN 

SPY 106, 

30, 

40, 

A2.K503 

8 SOFI CONDUCTION 

SPY 107, 

40, 

50, 

A2.K504 

8 SOR CONDUCTION 


■108, 10, 8, 1.0 8 WALL TO SHIELD 

109, 10, 9, 1.0 $ GN2 CONV SMELD-WALL 

HEADER ARRAY DATA, THIN 

1 =3.23365E*2,3.351 83E-4, -4.641 4E-7,3.23797E>10 $ KPIN 
2=0.00259,0.0000231 8 K SOFI BX2S0 

3=115.0,0.094 8 K (GN2) 139.1,0.0787 

139.2.0. 00439 

460.0. 0.0131 

800.0. 0.0204 

1000.0. 0.0243 

HEADER CARRAY DATA, THIN 
999=PARAMETER 

HEADER FLOW DATA,PURGE,RD=8728 


LUPLEN.IO.PL =14.7, TL = 530. 

LU JUNC.1, PL = 14.7, TL = 530. 

LU PLEN,20,PL = 14.7, TL = 530. 

PA CONN, 1,10,1 8 SEE OPERATIONS BLOCK 

DEV = MFRSET 
SMFR =1.0 

PA CONN.2,1,20 8 SEE OPERATIONS BLOCK 

DEV = STUBE 
TLEN =1.0 OH =1.0 
AF =1.0 

THTN,1,1,THIN.10A0.5 
T HTN,2,1 .THIN.20 AO-5 




PROBLEM DESCRIPTION 


SINDA'85/Fluint Model FMLI.INP (cont) 


HEADER OPERATION DATA 


BUILD TEST, THIN 
BUILDF TEST.PURGE 

777 CONTINUE ◄ 

XMLTTN s XLAYTN/DMUTN/12.0 
C 

C WRITE INPUT PARAMETERS TO SCREEN 
WRrTE(2,1100)ICASE 
C CRYO PHYSICAL PROPERTIES: 

WRrTE(2,1 1 01 )TCRYO,QEVAP 
C BOUNDARY CONDITIONS: 

WRfTE(2,1 1 02)TWALL,TSH1ELD,GN2PT 
C MU PROPERTIES: 

WRfTE(2,1 1 03)AMLfTN,DMUTN,XLAYTN, 

1 XMLfTN.EMUH.EMUO.PDlA, 

1 DP1N,FMSTN,SEAMLTN,SEAMWTN 
C SOR PROPERTIES: 

WRTTE(2,1 1 04)ASORTN,SORTN 
C WALL PROPERTIES: 

WRrTE(2,1 105JEWALLC SHIELD PROPERTIES: 

WRfTE(2,1 1 06 )ASHTN,ESHIELD,FSW,CONVSW 
C GN2 PURGE FUJI NT NETWORK 
WRfTE( 2 , 1 1 08)GN2MLrr,GN2PFR 
C 

9995 WRfTE(2.9994) ^ 

9094 FORMATS 

1 ' ENTER PARAMETER NAME TQ BE CHANGED: (EX: TCRYO)Y 
1 ' TO RUN WITH CHANGES ENTER: RUN 1 / 

1 * TO QUIT ENTER: QUfT OR EXIT) 

READ(1 ,'(A)',ENDb9996)THM.UCA999 

IF(THIN.UCA999(1:1).EQ.* ^GO TO 9995 

IF(THIN.UCA999(1 :3).EQ.'RUN')GO TO 778 

IF(nflN.UCA999(1 :4).EQ. , QUfT')GO TO 779 

IF(THIN.UCA999(1 :4).EQ. , EXrr)GO TO 779 

9996 WRrTE(2,9997)THN.UCA999 

9997 FORMATS 

1 1 ENTER VALUE FOR 'M) 

READ(1 ,\EN D=9996) VALUE 
C 

IF(THIN.UCA999(1 :S).EQ.'QEVAP > )OEVAPrVALUE 
IF(THIN.UCA999(1 ^^EQ-TCRYO* )TCRYO=VALUE 
C BOUNDARY CONDfTTONS: 

IF(THIN.UCA999(1 :5).EQ.TWALL' )TWALLsVALUE 
IF(THIN.UCA999(1 :7).EQ.TSHIELD')TSFflELD=VALUE 
IF(THIN.UCA999(1 :5).EQ.'GN2PT)GN2PT=VALUE 
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PROBLEM DESCRIPTION 


SINDA'85/Fluint Model FMLI.INP (cont) 


C MU PROPERTIES: 

IF(TKHN.UCA999(1 :6).EQ.'AMUTN' )AMUTN=VALUE 
IF(THIN.UCAOT9(1 :6).EQ.'DMIJTN' )DMUTNsVALUE 
IF(TWN.UCA9W(1 :6).EQ.'XLAYTN' )XLAYTN=VALUE 
IF(THIN.UCA999(1 rS^ECL'EMUH* )EMUH>VALUE 
IF(TtHN.UCA9M(1 iSVECL'EMUO 1 )EMUO=VALUE 
IF(THIN.UCA99fl(1 :4).Ea , PEHA' )PD1A=VALUE 
IF(THIN.UCA9M(1 :4).EQ.'DPIN' )OP1N=VALUE 
IF(THIN.UCA9M(1 :6).EQ.'FMSTN' )FMSTN=VALUE 
IF(THIN.UCA999(1 :7).EQ. , SEAMLTN , )SEAMLTN«VALUE 
IF(THIN.UCA999<1 :7).ECL , SEAMWTN , )SEAMWTN»VALUE 

r CAB DDAPCDTICQ^ 

IF(THN.UCA0M(1 :7).Ea. , ASOFTTN , )ASOFTTN=VALUE 
IF(THIN.UCA9M(1 :6).EQ. , SOfTTN' )SOFTTN=VALUE 
C WALL PROPERTIES: 

IF(THIN.UCA999(1 :S).EQ.'EWALL’ )EWALUVALUE 
C SHIELD PROPERTIES: 

IF(THIN.UCA999(1 :S).EQ.‘ ASHTN’ )ASHTN=VALUE 
IF(THIN.UCAM9{1 :7).EQ. , ESHIELD’)ESHIELD=VALUE 
IF(THIN.UCAM8(1 :3).EQ.'FSW )FSW=VALUE 
IF(THIN.UCA9M(1 :6).EQ.'CONVSW’ )CONVSW=VALUE 
<C GN2 PURGE FLU1NT NETWORK 

IF(THIN.UCA999(1 : 7 ).EQ.'GN 2 MLJr)GN 2 MLn»VALUE 
IF(THIN.UCA999(1:6).EQ. , GN2PFR‘ )GN2PFR=VALUE 
C 

GO TO 777 


778 CONTINUE ◄ 

C 

C WRITE INPUT PARAMETERS TO USER1 RLE 
WRITE(NUSER1 ,100)ICASE 
C CRYO PHYSICAL PROPERTIES: 

WRfTE(NUSER1 ,1 01 )TCRYO,QEVAP 
C BOUNDARY CONDITIONS: 

WRITE(NUSER1 ,1 02)TWALL,TSHIELD,GN2PT 
C MU PROPERTIES: 

WRfTE(NUSER1 ,1 03)AMLITN,DMLITN,XLAYTN, 

1 XMUTN.EMUH.EMUO.PDIA, 

1 DPIN.FMSTN.SEAMLTN.SEAMWTN 
C SOP PROPERTIES: 

WRITE(NUSER1 ,1 04)ASORTN,8ORTN 
C WALL PROPERTIES: WRITE(NUSER1,10S)EWALL 

C SHIELD PROPERTIES: 

WRITE(NUSER1 ,106)ASHTN ( ESHIELD,FSW t CONVSW 
C GN2 PURGE FLUINT NETWORK 

WRfTE(NUSER1 ,1 08)GN2MLIT,GN2PFR 
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PROBLEM DESCRIPTION 


SINDA'85/Fluint Model FMLI.INP (cont) 


CALL CHGLMPf PURGE', 1 0,TL',GN2MUT,'PL') 

PURGE.SMFR1 = GN2PFR*60.0 
C THIN MU WETTED HEAT TRANSFER AREA = 4.0*TLEN*AF/DH 
PURGE.DH2 = 3. 5-3.0 
PURGEAF2 = PI/4.*(3.5**2-3.0**2) 

PURGE.TLEN2 « (2.*AMUTN)*PURGE.DH2/4JPURGEJ*F2 

THIN.T8 sTWALL 

THIN.TB =GN2PT 

THIN.T50 a TCRYO 
CALL HNQCAL (THICK') 

CALL STDSTL 

THIN JCK888 = -THIN.Q50 

THIN. XK 999 = TH1N.XK88&OEVAP 

C WRITE TEMPERATURE OUTPUT TO USER1 RLE 
WRITE(NUSER1,201) 

1 THN.T50,THIN.T30,THIN.T20,THIN.T10,THIN.T8 
WRITE(NUSER1,203) 1 PURGE.FR2/60.,PURGE.TL1,PURGE.TL1,PURGE.PL1, 

1 HT CTN.VPURTN.RENTN 

WRITE(NUSER1 ,301) 

1 THIN. XK888, THIN. XK999 

ICASE = ICASE+1 

GO TO 777 

779 CONTINUE ◄ 


100 FORMAT( 

1 '—GROUND HOLD TEST PREDICTIONS V 

1 '—INPUT PARAMETERS FOR CASE NO.M4,' -7 
1 • ■) 

101 FORMAT( 

1 ' CRYO PHYSICAL PROPERTIES :'J 

1 'TCRYO a ‘.E10.4/ CRYO TANK TEMP (DEG R)7 

1 ' QEVAP a ‘,£10.4/ HEAT OF VAPORIZATION OF CRYO (BTtVLBM)*) 

102 FORMATS 

1 ' BOUNDARY CONDITIONS :7 

1 TWALL = '.E10.4,' CHAMBER WALL AND PLATFORM TEMP (DEG R)V 
1 * TSHIELD = '.E10.4,' ALUMINUM SHIELD TEMP (DEG RYJ 
1 ' GN2PT = , El 0.4,' CHAMBER GNE PURGE TEMP (DEG R)‘) 

103 FORMATS 1 ' MU PROPERTIES :'J 

1 ' AMUTN a ',E10.4,' THIN MU SURFACE AREA',/ 

1 ' DMLfTN a ',E10.4,‘ THIN MU DENSITY (LAYERSAN)7 
1 ' XLAYTN = '.E10.4,' NO. OF MU LAYERS ON THIN + 2 *J 
1 ' XMUTN a',E10.4.'THIN MU THICKNESS (FT) (OUTPUT ONLY)V 
1 ' EMUH a ',E10.4,‘ MU HEMISPHERICAL EMISIVITYV 
1 ' EMUO = '.E10.4,' MU OUTER LAYER EMKIVTTY7 
1 ' PDIA = ',E10.4,' LEXAN PIN DIA (FT)V 
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PROBLEM DESCRIPTION 


• SINDA’85/Fluint Model FMLI.INP (cont) 


1 ' DP1N = ',E10.4,‘ PIN DENSrTY (NOTSQFT)',/ 

1 1 FMSTN = ‘.E10A’ THW MU-SHIELD VIEW FACTOR7 
1 * SEAMLTN a \E10.4,' SEAM LENGTH (FT)7 
1 ' SEAMWTN = '.E10.4,' SEAM WIDTH (FT) 1 ) 

104 FORMATS 
1 1 80F1 PROPERTIES 

1 ’ ASOFITN a *,E10A,’ THIN SOFI AREA *FT2)7 
1 ' SOFTTN a ',£10.4,' THIN SOFI TWCKNESS (FT)*) 

105 FORMAT*/ 

1 * VACUUM CHAMBER WALL PROPERTIES :7 
1 ’ EWALL = '.E10.4,' EMISSMTY OF VAC WALL CHAMBER') 

106 FORMAT*/ 

1 • SHIELD PROPERTIES :7 
1 ' ASHTN «’, E10.4,* SHIELD AREA (FT2)7 
1 ' ESHIELD * \E10.4,' EMISSIVTTY OF AL SHIELD‘D 
1 * FSW a'.EIO.A,' SHIELD-WALL VIEW FACT0R7 

1 ' CON VSW a El 0.4,' GN2CONV SHIELD-WALL (BTIVHR-FT2-F)7) 

C 

C GN2 PURGE FLUINT NETWORK 

108 1 ' GN2 PURGE FLUINT NETWORK :7 1 ' GN2MUT = .E10.4,' MU GN2 PURGE GAS TEMP 

(DEG R)7 

1 • GN2PFR a ',E10.4,' MU GN2 PURGE FLOWRATE (LBS/MIN)') 

C 

201 FORMAT*/ 

1 * FOAM/MU TEMPERATURES (DEG R) BY SUB-MODELS :7 

1 ' — V 

1 'THIN MU:'/. 

1 ■ CRYO SOn MU AL SHIELD', 

1 • WALL7,5(2X,FB.2)) 

c SUBMODEL PURGE OUTPUT 
C 

203 FORMAT* 

1 ‘THIN PURGE FLOW NETWORK INFO 1 / 



1 * FR2(LB/MIN) TL1 (F) TL2 (F) PL2(PSI)' 

1 'H*B/HR-FT2-F) V(FT/SEC) REN NO.7 
1 4*1X.E10.5)^*2X,E10^» 

301 FORMAT*/ 

1 • HEAT LEAK BOIL-OFF RATE'/ 1 * 

1 


(BTU/HR) (LBS/HR) 7 


1 'THIN ',£12.4,' '.E10.4 J) 


1100 FORMAT*/// GROUND HOLD TEST PREDICTIONS INPUT PARAMETERS * 

1 'FOR CASE NO. 74) 

C 
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PROBLEM DESCRIPTION 


• SINDA'85/Fluint Model FMLI.INP (cont) 


1101 FORMAT( 

1 ' TCRYO ■ \E10.4,' QEVAP =*,E10.4) 

1102 FORMAT( 

1 'TWALL = '.ElO.d,' TSH1ELD = '.E10.4,/ 

1 ' QN2PT s \E10.4) 

1103 FORMAT( 

1 ’ AMLfTN = '.E10.4,' DMLfTN 3 El 0.4,/ 

1 ’ XLAYTN = ',E10.4,' XMLTTN = ’,£10.4,/ 

1 ' EMUH 3 \E10.4,' EMUO s '.E10.4/ 

1 ' POIA = ',E10.4,' DP1N = ’.E10.4,/ 

1 ‘ FMSTN 3 •.E10.4,' SEAMLTN = '.E10.4,/ 

1 ' SEAMWTN 3 ’.E10.4) 

1104 FORMAT( 

1 1 ASOFTTN 3 '.E10.4,' SOFITN = \E10.4) 

1105 FORMAT( 

1 'EWALL = \E10.4) 

1106 FORMAT( 

1 ' ASHTN s ',E10.4,’ ESHELD s ‘.E10.4,/ 

1 ' FSW 3 *|E10«4| I CONVSW = ',E10.4) 

C GN2 PURGE FLUINT NETWORK 

1108 FORMAT( 1 ‘ GN2MUT > .E10.4, 1 GN2PFR > '.E10.4) 

C 

HEADER VARIABLES 1, THIN 

C CALCULATING VALUES FOR BASIC MU HEAT LEAK COMPONENTS 
C Q(mli cond) 3 [A*8.96E-8‘NLC A 2.56/(2*(N-1))]TTm A 2 - Ta A 2] 

C Q(mll rad) = [A‘5.39E-1 0 *®toth/(N -1 )nTm*4.67 - Ta A 4.67] 

C 

C NOTE: THE ABOVE EQUATIONS UTILIZE SI UNITS B/C EQUATIONS ARE GIVEN 
C AS SUCH. 

C 

C CONVERSION FACTORS WERE USED FOR CONTINUITY OF INPUTS. 

C AREA: 1 FT**2 = .092903 M ~2 
C LENGTH: 1 1N s2J4CM 

C HEAT: 1 BTU/HR= .20307 WATTS 

C TEMPERATURE: DEG R 3 T<DEGR) 3 1.8 T(DEGK) 

C G100 3 AMLfTN*FMSTN*(1 J(1 JEMUO+1 JESHIELD-1 .))*STEF 
XK201 3 8.95E-8*((DMLITN/2£4) M 2.S6y(2.*(XLAYTN-1.)) 

XK102 3 (AMLfTN*^92903‘XK201 )*((T20/1 .8)"2.-(T3G/1 .0)"2. K-29307 
G101 = XK102/(T20-T30) 

XK301 3 548E-1 0*EMUH/(XLAYTN-1 .) 

XK101 3 (AML1TN*.092903*XK301 )*((T20A1 .8)**4.67-{T30rt J)**4.67y.2«307 
G102 = XK101/CT20-T30) 

XK501 3 AMUTN/XMLTTN 
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PROBLEM DESCRIPTION 


• SINDA'85/Fluint Model FMLI.INP (cont) 


G104 = SEAMLTN*SEAMWTN*(SQHT(1.*XMUTH**2/8EAMWTN**2VXMLITN/SEAMWTN)* r 
XK502 = DPlN*AMLTTN*P1*PDlA**2/XMLiTN 
XK503 > ASOFTTN/(SORTN/2.) 

XK504 = XK503 

G108 = ASHTN*FSW*(1 ./(I JESHIELD+1 7EWALL-1 .))*8TEF 
G109 = CONVSWASKTN 

HEADER OUTPUT CALLS, THIN 

IF(LOOPCT.GT.I) THEN 
CALLTPRINT (THIN') 

CALL HNQPNT (THIN') 

END IF 

HEADER OUTPUT CALLS. PURGE 

IF(LOOPCT.GT.I) THEN 
CALL LMPTAB ('PURGE') 

CALL TIETAB fPURGE') 

CALL PTHTAB C PURGE') 

END IF 

< 

HEADER FLOGIC 1, PURGE 

C OBTAIN PURGE GAS V AND R* BETWEEN SHIELD AND THIN MU (FT/SEC) 

C V = MOOT * SPEC VOL/ FLOW AREA 

VPURTN = PURGE.SMFR1 *VSV(PL1 ,TL1 ,PURGE.R)/PURGE.AF2/3600. 

HTCTN = DrTTUS(PURGE.FR2,PURGE.DH2,PURGE^F2,THIN.T20,PURGEJ»L1, 

1 PURGE.TL1 .PURGE.XL1 .PURGE.FI) 

RENTN = VPURTN *3600.*PURGE.DH2/VSV(PL1 ,TL1 .PURGE.R)/ 

1 W1SCV(PL1 ,TL1 .PURGE.FI) 

C 

END OF DATA 



EXAMPLE PROBLEM 



EXAMPLE PROBLEM 


• Interactive Run: 

Output Files ( Created in Scratch Directory ZZZZZZ.DIR) 


EPVAfedfr 

Dtractory DI8K»U«E»4^M«lf>HOt.WORICTT : AW»JEZZZZZi 

AAYDAT.DAT 


AfrrmEJXAT;1 

CAfTTR£J)AT;1 

CfflDATJMT;! 

CMTTREJMT; 


OONNAMJ>AT;1 

00fCTR£.DAT;1 

CRY1MT.DAT;1 

FLOCON.DAT 


Ft00EVJMT;1 

FLOJUItOAT.I 

RjOtaOfXDAT;! 

RjOPLMDAT; 


RjOFf«PJMT;f 

PlOTEOAT;1 

ROTNKJ)AT;1 

FUmJ&DAT; 


niinr.i 

LMFTR£J3AT;1 

N00DATJMT;1 

NODTRE.DAT 


M0USCRJDAT;1 

NUmHE.DAT;1 

NVCOAT.OAT;1 

NVODAT.DAT 


OfllOflDATjl 

OFT)OffSJ>AT;1 

PC*OAT_DAT;1 

tOROAT.DAT 


TETHEJDAT;1 

THYDATJMT;1 

US£DATJMT;1 

Total of S3 IHm. 
ffVAX> 
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EXAMPLE PROBLEM 


• Interactive Run: 

R unning Interactive (File FMLI.EXE) 


EPVAXwunMI 


GROUND HOCD TE1T PREDICTION* WPITT PARAMETER* FOR CASE NO. 1 
TCRYO uQjmOEM QEVAP -0.1t1«v03 
TWAU. ■O*100E*« T S W ELD ■ <U100E»0> 

(HQfrj m •J300E+O) 

AMUTN -0-4S41E+C2 OMUTN - OSOOQEott 
XLAYTN -GITOOEvOI XMUTN «0JStt€-01 
EHUH *OjSOOOE*OT EMUO ■0-1000C+00 
PDIA » 0JM04E-03 ORN .MOOOEvOI 
FMSTN ■0.1000E+01 SEAMLTN.OJlO«E*<tt 
SEAMWTN « 0.1042E-01 
ASORTN«0.4MSE«O2 SOFTTN .0^7*06-01 
EWALL sOJOOOEHX) 

ASHTN .0«aOE*02 ESHEli) - a9000E*00 
FSW * 0.1000E401 OONVSW ■0.1000C«01 
QN2MUT.&aOOE«a> ONJPPB .0.1BMM2 

ENTER PARAMETER NAME TO BE CHANCED: (EX: TCRYO) 

TO RUN WITH CHANGES ENTER: RUN 
TO OUT ENTER: OUT OR EOT 


EXAMPLE PROBLEM 


• Interactive Run: 

Entering Inputs (Modify TCRYO User Data to 140) 


TCRYO 

ENTER VALUE FOR TCRYO 
140 


GROUND HOLD TEST PREDICTIONS INPUT PARAMETERS FOR CASE NO. 1 
TCRYO *0.1400E«63 QEVAP * 0.101 9E *03 
TWALJL n 0-6300E+03 TBHELD * 0S200E+O3 
GN2PT • &S300E*Q3 

AMUTTN ■0.4C01E402 DMLTTN *0SOOOE+O2 
XLAYTH «0.1700E*tt XML/TN -0.2SJ3E-C1 
EHUH .0S000E-01 EMUO -O.IOOOE+OO 
PDIA -CU004E42 OPW «0.1000E*01 
FM6TN « O.IOOOEvOI SEAMLTN « QMOtEM 
8EAMWTN * 0.1042E-01 
ASOHTN a O.OOOE+02 SOFTTN «0J7ME-01 
na il 1 •ojOOOEvOO 

ASHTN . 0.C20SEHK2 E8WELD - 0 JOOOE+OO 
FSW * 0.1000E+01 CONVSW -O.lOOOEvOI 
GN2MLTT * OSSOOEvOO GN2PFR «0.1000Ev02 

ENTER PARAMETER NAME TO BE CHANGED: (EX: TCRYO) 

TO RUN WITH CHANGES ENTER: RUN 
TO QUIT ENTER: QUIT OR EXIT 
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EXAMPLE PROBLEM 


• Interactive Run: 

Entering Inputs (Modify CONVW User Constant to 

CONVSW | 

ENTER VALUE FOR CONVSW 1 


GROUND HOU) TEST PREDICTIONS INPUT PARAMETERS FOR CASE NO. 1 
TCRYO * 0.14006*03 QEVAP « 0.101 6E+03 
TWALL - 0*3006*03 TStfELD - 0*200E*03 
GfttPT » 0*300E*63 

AMUTN - 0*W1E*02 DMLITN -0*0006*02 
XLAYTN -0.17006*62 XMLfTN -0J633E-O1 
EMUH * 0*0006-01 EMUO -0.10006*00 
POU -020046-02 DINN -0.10006*61 

FUSTN s 0.10006*01 8EAMLTN ■ 0*6066*62 
8EAMWTN « 01042E-01 
ASOHTN ■ 0.4366E*02 SOFTTN -0*7806-01 
EWALL s QlJOOOE+OO 

ASHTN * 0.62Q9E42 EStiELD - 0 AOOOEtOO 
FSW - 0.10006*61 CONVBW -0*0006+00 

ON2MUT * 0.6300E+63 QN2PFR -0.10006*02 


ENTER PARAMETER NAME TO BE CHANGED: (EX: TCRYO) 
TO RUN WITH CHANGE8 ENTER: RUN 
TO QUIT ENTER: QUIT OR EXIT 




EXAMPLE PROBLEM 

• Interactive Run: 

Run Casel 

RUN 


GROUND HOLD TEST PREDICTIONS INPUT PARAMETERS FOR CASE NO. 2 
TCRYO - 0.14006*63 QEVAP -0.1616E*03 
TWALL -0*3006463 TMELD ■ 0*2006*03 
QN2PT - 0*9006*63 

AMLITN - 0*601 E *63 DMLTTN -0*0006*62 
XLAYTN -0.17006*09 XMLfTN «0 l 2S39E-O1 
ElUi -0*0006-01 EMUO «ai000E*60 
POU -0*0046-02 DPIN -ai000E*61 
FUSTN -0.10006*61 SEAMLTN * 0*0066*62 
SCAMWTN- 0.1642661 
ASOHTN - 0.49666*02 BOHTN - 0*760661 
EWALL -0*0006*60 

ASHTN -0*2006*62 ESrtELO - 0*0006*00 
FSW - 0.10006*61 CONVSW • 0*0006*60 
GN2MUT- 0*3006*63 GN2PFR -0.10606*62 


ENTER PARAMETER NAME TO BE CHANGED: (EX: TCRYO) 
TO RUN WITH CHANGES ENTER: RUN 
TO QUTT ENTER: QUTT OR EXIT 







EXAMPLE PROBLEM 


• Interactive Run: 

Exit and Show Result Files in TFAWS.DIR 


EXIT 

FORTRAN STOP 
EPVAXxflr H 

Directory DtSK|OftEIU:[»lia*ONDS.WO«K.TFAWSl 

c m i n up-.i FML1U8;1 FMLLOPP;1 RtlOUT;1 

FMLLU81 ;1 ZZZZZZJXR;1 

Total of f fitaa. 

EPVAX> 


SUMMARY 


• The Interactive Process Saves Time. 

• Permits Modifications to Thermal/Fluids Model Parameters During Run Time. 

• Permits User to Examine Results and Make Decisions During Parametric Studies. 

• Exe cutable Models Can be Run by Non-SINDA*85/Fluint Users. 

• Open the Doors for Unlimited Creativity and Interaction with the 
SINDA'85/Fluint Models. 
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SUMMARY 


• Output File FMLI.US1 


GROUND HOLD TEST PREDICTIONS 

—INPUT PARAMETERS FOR CASE NO. 1 - 

CRYO PHYSICAL PROPERTIES : 

TCRYO a 0.1400E+03 CRYO TANK TEMP (DEG R) 

QEVAP = 0.1910E+03 HEAT OF VAPORIZATION OF CRYO (BTULBM) 

BOUNDARY CONDITIONS : 

TWALL = 0.5300E+03 CHAMBER WALL AND PLATFORM TEMP (DEG R) 

TSHIELD a 0.5200E+03 ALUMINUM SHIELD TEMP (DEG R) 

GN2PT = 0.5300E+03 CHAMBER GNE PURGE TEMP (DEG R) 

MU PROPERTIES : 

AMLTTN = 0.4581 E+02TWN MU SURFACE AREA 
DMLTTN a 0.5000E+02 THIN MU DENSITY (LAYERSflN) 

XLAYTN * 0.1700E+02 NO. OF MU LAYERS ON THIN ♦ 2 
XMUTN a 0.2833E-01 THIN MU THCKNESS (FT) (OUTPUT ONLY) 

EMUH a 0.5000E-01 MU HEMISPHERICAL EMKIVITY 
EMUO = 0.1000E+00 MU OUTER LAYER EMKIVTTY 
PDIA a 0.2604E-02 LEXAN PIN DIA (FT) 

DPIN a 0.1000E+01 PIN DENSITY (NOJBQFT) 

FMSTN a 0.1000E+01 THIN MU-SHIELD VIEW FACTOR 
SEAMLTN a 0.3606E+02 SEAM LENGTH (FT) 

SEAMWTN a 0.1042E-01 SEAM WIDTH (FT) 

SOFI PROPERTIES : 

ASOFTTN a 0.4399E+02 THIN SOR AREA (FT2) 

SOFITN = 04750E-01 THIN SOR THICKNESS (FT) 

VACUUM CHAMBER WALL PROPERTIES : 

EWALL = 0.8000E+00 EMISSMTY OF VAC WALL CHAMBER 
SHIELD PROPERTIES : 

ASHTN = 0.6203E+02 SHIELD AREA (FT2) 

ESHIELD a O.OOOOE+OO EMISSIVTTY OF AL SHIELD 
FSW a 0.1 000 E +01 SHIELD-WALL VIEW FACTOR 
CONVSW a 0.5000E+00 GN2 CONV SHIELD-WALL (BTU/HR-FT2-F) 

GN2 PURGE FLUINT NETWORK : 

GN2MUT a 0.5300E+03 MU GN2 PURGE GAS TEMP (DEG R) 

GN2PFR a 0.1000E+02 MU GN2 PURGE FLOWRATE (LBS/MN) 

FOAM/MU TEMPERATURES (DEG R) BY SUB-MODELS : 

THIN MU : 

CRYO son MU AL SHIELD WALL 
140.00 312£6 406.56 52475 530.00 
THIN PURGE FLOW NETWORK INFO 

FR2(LB/MIN) TL1 (F) TL2(F) PL2 (PSI) H(BiHR-FT2-F) V(FT/8EC) REN NO. 
.10000E+02 .52208E+03 .52206E+03 .14700E+02 227B1E+00 J8730E+00 ^7915E+04 
HEAT LEAK BOIL-OFF RATE 
(BTU/HR) (LBS/HR) 


THIN 0.1562E+04 0.8245E+01 




SUMMARY 

• VAX FILES (Command Procedures) to Run SINDA’85 


EPVAXxJ 

Directory DiSK$USER4:[SIMMONDS.THERMAL.SINDA8S] 

ASTA.COM;20 7 16-OCT-1991 13:25:41.10 (RWED.RWED.REJ1E) 

ASTAPP.EXE;1 902 19-APR-1990 14:55:33.00 (RWED.RWED.RE.RE) 

ASTASAVE.COM;3 7 22-APR-1991 15:37:31.10 (RWED.RWED.RE.RE) 
BANNER.TXT;7 3 21-JUL-1989 12:54:24.00 (RWED,RWED,RE,RE) 

BANNER2.TXT;3 7 21-JUL-1969 12:54:35.00 (RWED.RWED.RE.RE) 

DATA_ONLY.DIR:1 1 26-SEP-1990 07:51:58.12 (RWED.RWED.RE.RE) 

DELWORK.COM;24 2 29-JUN-1989 16:34:40.00 (RWED.RWED.RE.RE) 
EXPLOT.DIR;1 1 25-SEP-1990 16:15:12X0 (RWED,RWED,RE,RE) 

RNCLU0E.DIR;1 3 26-SEP-1990 11X0:28.10 (RWED.RWED.RE^E) 

FLU1NTP.OLB;2 2204 19-APR-1990 14:20:42.00 (RWED,RWED,RE,RE) 

FLUINTPP.OLBjl 1480 19-APR-1990 14:19X1.00 (RWED.RWED.RE.RE) 

F8 ROUTINES.OLBjl 116 4-OCT-1991 14:19:03X7 (RWED.RWED.RE.RE) 
INCLUDE.DiR;1 4 26-SEP-1 990 11X0:22.93 (RWED.RWED.RE.RE) 

UNKPPF.COM;3 1 24-JUL-1986 11:16:36.00 (RWED.RWED.RE.RE) 

UNKRAP.COM;2 1 6-SEP-1969 06:15:49.00 (RWED,RWED,RE*E) 

MKNAME.COM;1 1 15-AUG-1 964 10:30:06.00 (RWED,RWED,RE,RE) 

MKWORK.COM-,1 7 2 29-JUN-1 989 08:33:50.00 (RWED.RWED.RE.RE) 

NEW.FS ROimNES.OLB;1 

48 19-FEB-1991 13:23:30.60 (RWED.RWED.RE.RE) 

OLD FS_ROUT1NES.OLB;1 

116 20-JUL-1989 16X4:38.00 (RWED.RWED.RE.RE) 

OLD TSAVE_ASC9.0BJ;1 

3 10-OCT-1990 11:56:28X0 (RWED.RWED.RE.RE) 
SAMPLES.DIR;1 1 10-AUG-1990 09:55:56.44 (RWED,RWED,RE,RE) 

8ETHOME.COM;7 1 29-JUN-1 989 08:26:58.00 (RWED,RWED,RE,RE) 

SINDA85.COM;24 12 20-APR-1990 10:21:41.00 (RWED,RWED,RE,RE) 

SINDA85.USAGE;6 20 9-JUL-1992 13:28:21.62 (RWED.RWED.RWE.RWE) 

SiNDA85SAVE.USAGE;4 

1 9-JUL-1992 13:28:44.40 (RWED.RWED.RWE.RWE) 
TSAVE_ASCB.OBJ;4 3 19-FEB-1991 13X0:13X1 (RWED,RWED,RE,RE) 

UTlUTY.OLB;1 113 19-APR*1990 14:18:43.00 (RWED,RWED,RE,RE) 

Total of 27 Alas. 5060 block*. 

EPVAX> 
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SUMMARY 


• ASTASAVE.COMWith Minimum Modifications 

Required 

______ _____ _ - 

$ SET WORKA1MTT=1024 

< On WARNING than goto EXJT1 
$ On CONTROL.Y than goto EXTT1 

< ASSIGN $1$dua4:[u*ar.SIMMONDS.THERMAL.SINDAt5] AST 

$1 

SI 

S node = fSgatayK'NODENAME*) • 'SYS* 

$ atart.tima = fStimaO 
Satart_cpu = fSget|pl(‘ Ycputlm*) 

SI 

SI GET THE CURRENT LOCATION AND PLACE TO KEEP THE RESULTS 

SI 

S IF PI .NES. " THEN GOTO ISINPUT 
S WRITE SYSSOUTPUT * •*♦** ERROR - NO INPUT ' 

S GOTO EXTT1 
S ISINPUT: 

S WRITE SYSSOUTPUT 'INPUT DATA RLE: "PI” 

S OAST.SETHOME'PI 

S FNAME = FSPARSE(P1 ,,,'NAME’) 

S Aaaign 'SINDAS5_KEEP_DIR M FNAME.OPP FOR006 
SI 

SI Aaaign the MITAS Proeaaaor TSAVE Plot flla. 

S Aaaign 'SINDA85_KEEP_DIR" FNAME' KEEPSFILE 

SI 

SI CREATE WORKING DIRECTORY ON SCRATCH OR LOCALLY 
SI 

S SET NOCONTROUY 
S OAST:MKWOtiK 
SSET CONTROLS Y 
SI 

SI RUN THE PRE PROCESSOR 
SI 

SOn WARNING than goto EXIT 
S On CONTROL.Y than goto EXIT 

S WRITE SYSSOUTPUT 'SINDA 'S5 PREPROCESSOR RUN OF PROBLEM: "PI” 

S WRITE SYSSOUTPUT ‘STARTING: “FfTIMEO" 

ST1 ■ FSGETJPK'VCPUTIM') 

$1 RUN/NODEB AST:flulntPP$ RUN/NODEB AST:ASTAPP 

ST2 = (FSGETJPI(' ',‘CPUTIM') - TiyiOO 

S WRITE SYSSOUTPUT ' The Pm-Procaaaor ran for T2* cpu aaoonda* 

S WRITE SYSSOUTPUT ‘PREPROCESSOR ENDS : "FST1ME0” 

S DEASSIGN FOR005 
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SUMMARY 


ASTASAVE.COMWith Minimum ModiFications 

Required (cont) 


$1 COMPILE AND LINK 

tl 

$ On WARNING then goto EXIT 

$On CONTROL_Y then goto EXIT 

$ WRITE SYStOUTPUT 'BEGINNING COMPILE AND UNK’ 

t WRITE SYStOUTPUT ’STARTING: "FtTIMEO" 

tTI s FtGETJPK’VCPUTIM’) 

t FO R/US=‘SINDA85_KEEP_DIR"FN AM E.L1 S/CROSS ASTAP.DAT 

t T2 = (FtGETJPK’ VCPUTIM’) - TiyiOO 

t WRITE SYStOUTPUT ’ The compiler ren for "Tf cpu second** 
t Write SYStOUTPUT' DOING THE UNK’ 
tTI = FBGETJP1<" p ’CPUTIM’) 

t UNK/EXEC='FNAME.EXE AST AP, ASTd lulntp/L,UTlUTY/L,FS_ROUT1NES/L 
tT2= (FtGETJPI(",’CPUTlM’)- TiyiOO 
t WRITE SYStOUTPUT ’ The link ran for "T2' cpu second*’ 
t WRITE SYStOUTPUT ’COMPILE AND UNK ENDS : “FtTHIEtf’ 
t DEL ASTAP.V 
tl 

tl RUN THE PROCESSOR 
tl 

tOn WARNING then goto EXIT 
t On CONTROL.Y then goto EXIT 
t ASSIGN , SINDA8S_KEEP_DIR ,, FNAME.TSV FOR021 
t ASSIGN SINDAB5_KEEP_DIR"FNAME.RP FOR025 
t IF P2 .EQS. ’’ THEN GOTO ENT1 
t WRITE SYStOUTPUT ’RSI DATA FILE: "P2'.RP’ 
t OAST-.MKNAME P2 
t PP2 * TNAME 
t ASSIGN 'PP2.RP FOR024 

t WRITE SYStOUTPUT ‘SINDA 'tS PROCESSOR RUN OF PROBLEM: “PI” 
t WRITE SYStOUTPUT ’STARTING: "FtTIMEO" 
tTI = FtGETJPK” ,’CPUTIM’) 

tl 

t ASSIGN SYSMNPUT FOROOI 
t ASSIGN SYStOUTPUT FOR002 

$!RUN 'FNAME 

tlT2 = (FtGETJPI(’’,’CPUTlM’) * TiyiOO 

tlWRITE SYStOUTPUT ’ The proceeeor ran for "T2 cpu eeoond*' 
tlWRITE SYStOUTPUT ’PROCESSOR ENDS : "FtTIMEO'' 

tl 

tl DEL WORKING FILES AND DIRECTORIES 

tl 

tEXIT: 
tl 
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SUMMARY 


• ASTASAVE.COM With Minimum Modifications 

Required (cont) 

$ open/append uaage est:elnda85save.ueege 
I write usage ffgetjpK' '.'username'),' '.'"node",* ','"etart_tliTie’' f - 
' '.fftlmeO 
$ close usage 
«l 

9 On WARNING then continue 
9 On CONTROL_Y then continue 
9 On ERROR then continue 

9 IF '"F9LOGICAL('FOR005')".NE8." THEN DEASSIGN FORMS 
9 IF '"F9LOGICAL('FOR006') , '.NES." THEN DEASSIGN F0RM6 

$! ® AST :DELWORK 

9EXIT1: 
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